(define % remainder)

;; short name aliases for std procedures
(define vref vector-ref)

(define vset vector-set!)

(define l2v list->vector)

(define nil '())

;; returns the last item in a list
(define (last lst)
  (cond ((null? lst) 
		 lst)
		((null? (cdr lst)) 
		 (car lst))
		(else 
		 (last (cdr lst)))))
